Public Class TabStripWizard
    Inherits System.Web.UI.Page

    Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
        MyBase.OnInit(e)
        DotNetNuke.UI.Utilities.ClientAPI.HandleClientAPICallbackEvent(Me)
    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub


    Private Sub tabWelcome_SetupDefaults() Handles tabWelcome.SetupDefaults
    End Sub

    Private Sub tabStep1_SetupDefaults() Handles tabStep1.SetupDefaults
        'lblStep1Name.Text = Me.txtName.Text		  'value posted from form during callback
        lblStep1Name.Text = Request.Form(Me.txtName.UniqueID)      'using Simple callback, therefore real properties of controls not populated

    End Sub

    Private Sub tabStep2_SetupDefaults() Handles tabStep2.SetupDefaults
        'lblStep2Value.Text = Me.txtStep1.Text		  'value posted from form during callback
        lblStep2Value.Text = Request.Form(Me.txtStep1.UniqueID)       'using Simple callback, therefore real properties of controls not populated
        tabStep2.Style.Add("background-color", Request(ddlColor.UniqueID))        'hack - see http://dotnetnuke.com/DotNetNukeProjects/CoreClientAPI/tabid/851/EntryID/1042/Default.aspx
    End Sub

    Private Sub tabStep3_SetupDefaults() Handles tabStep3.SetupDefaults
        lblMyValue.Text = DotNetNuke.UI.Utilities.ClientAPI.GetClientVariable(Me, "MyValue")
    End Sub

#Region "Debugging Routines"
    Private Sub MethodCalled(ByVal Method As String)
        Me.txtMethods.Value &= (Me.txtMethods.Value.Split(vbCrLf).Length) & ". " & Method & vbCrLf
        System.Diagnostics.Debug.WriteLine("----------------------")
        System.Diagnostics.Debug.WriteLine(Me.txtMethods.Value)
        System.Diagnostics.Debug.WriteLine("----------------------")
    End Sub
#End Region
End Class
